home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
cross
/
GBDK-2.0.lha
/
GBDK
/
lib
/
scroll_b.s
< prev
next >
Wrap
Text File
|
1998-10-01
|
273b
|
25 lines
.include "global.s"
.area _CODE
_scroll_bkg::
LDA HL,2(SP) ; Skip return address
XOR A
CP (HL) ; Is x != 0
JR Z,1$
LDH A,(.SCX) ; Yes
ADD (HL)
LDH (.SCX),A
1$:
INC HL
XOR A
CP (HL) ; Is y != 0
JR Z,2$
LDH A,(.SCY) ; Yes
ADD (HL)
LDH (.SCY),A
2$:
RET